home *** CD-ROM | disk | FTP | other *** search
/ PC Direct 1995 September / PCD0995.ISO / files / tools.dir / 00493_Quit from QuickTime-Demo.ls < prev    next >
Encoding:
Text File  |  1995-01-25  |  788 b   |  29 lines
  1. global gReturnFromQuit, gLeftFromQTOver, gLeftFromQTDemo, gMovieTimeWhenLeft, cDemoQT
  2.  
  3. on mouseDown
  4.   puppetSprite(the clickOn, 1)
  5.   repeat while the stillDown
  6.     if rollOver(the clickOn) then
  7.       set the castNum of sprite the clickOn to the number of cast "Quit lit"
  8.       updateStage()
  9.       next repeat
  10.     end if
  11.     set the castNum of sprite the clickOn to the number of cast "Quit"
  12.     updateStage()
  13.   end repeat
  14. end
  15.  
  16. on mouseUp
  17.   set the castNum of sprite the clickOn to the number of cast "Quit"
  18.   puppetSprite(the clickOn, 0)
  19.   if rollOver(the clickOn) then
  20.     sound stop 1
  21.     sound stop 2
  22.     set gReturnFromQuit to 1
  23.     set gLeftFromQTOver to 0
  24.     set gLeftFromQTDemo to 1
  25.     set gMovieTimeWhenLeft to the movieTime of sprite cDemoQT
  26.     play movie "quit"
  27.   end if
  28. end
  29.